TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/T-TPUG Old Monthly Disks/(c)tg.d64/paperboy.c

Commodore BASIC | 2007-02-04 | 6KB | 199 lines

52 REM"            DOUGLAS BRAUN
53 [143]"
54 REM"            REDCLIFF ALTA
55 [143]"
56 REM"            MAY 09   1984
57 [143]"
58 REM"
59 [143]"
60 REM"
100 [151]53281,0:[151]53280,0
101 [133]"LOADNUMBER OF EXPECTED CUSTOMERS";EC
102 [134]N$(EC):[134]A$(EC):[134]P$(EC):[134]C$(EC):[134]WE$(EC)
103 [153]"LOADOPEN(USE \ TO BYPASS LOAD)"
104 [133]"ONONONFILENAME ";D$:[139]D$[178]"\"[167]122
105 [153]"DWAITISK OR TWAITAPE"
106 [161]X$:[139]X$[179][177]"D"[175]X$[179][177]"T"[167]106
107 [139]X$[178]"D"[167][159]1,8,2,"0:"[170]D$[170]",S,R":I[178]0:[137]109
108 [159]1:I[178]0
109 [132]1,N
110 [153]"SYSFOUND:"
111 [129]I[178]1[164]N
112 [132]1,N$(I)
113 [132]1,A$(I)
114 [132]1,P$(I)
115 [132]1,C$(I)
116 [132]1,WE$(I)
117 [153]N$(I)
118 [139]ST[179][177]0[167]246
119 [130]I
120 [160]1
121 [153]"THERE WERE";N;"RECORDS":[141]199
122 [153]"LOAD(1) ADD CUSTOMER"
123 [153]"(2) DELETE CUSTOMER"
124 [153]"(3) REVIEW CUSTOMER"
125 [153]"(4) SAVE CUSTOMERS"
126 [153]"(5) PRINT CUSTOMERS"
127 [153]"(6) SORT CUSTOMERS"
128 [153]"(7) COLLECT"
129 [153]"(8) HELP"
130 [153]"(9) QUIT"
131 [161]X$:[139]X$[179]"1"[176]X$[177]"9"[167]131
132 X[178][197](X$):[145]X[137]159,184,194,133,202,221,233,252,216
133 [153]"LOADNAME OF FILE"
134 [133]D$
135 [153]"DWAITISK OR TWAITAPE"
136 [161]X$:[139]X$[179][177]"D"[175]X$[179][177]"T"[167]136
137 E$[178][199](13)
138 [129]I[178]1[164]N
139 [139]WE$(I)[178]""[167]WE$(I)[178]"NO COLLECTION ENTERED"
140 [139]N$(I)[178]""[167]N$(I)[178]"NO NAME GIVEN"
141 [139]A$(I)[178]""[167]A$(I)[178]"NO ADDRESS GIVEN"
142 [139]P$(I)[178]""[167]P$(I)[178]"NO PHONE # GIVEN"
143 [139]C$(I)[178]""[167]C$(I)[178]"NO COMMENT GIVEN"
144 [130]I
145 [139]X$[178]"D"[167][159]1,8,2,"0:"[170]D$[170]",S,W":I[178]0:[137]147
146 [159]1,1,2,D$
147 [152]1,N;E$
148 [153]"SAVING:"
149 [129]I[178]1[164]N
150 [152]1,N$(I);E$
151 [152]1,A$(I);E$
152 [152]1,P$(I);E$
153 [152]1,C$(I);E$
154 [152]1,WE$(I);E$
155 [153]N$(I)
156 [130]I:[139]ST[179][177]0[167]246
157 [160]1
158 [137]122
159 [153]"LOADCUSTOMER NAME"
160 [133]N$
161 [153]"CUSTOMER ADDRESS"
162 [133]A$
163 [133]"PHONE #";P$
164 [153]"COMMENTS"
165 [133]C$
166 [133]"OK";X$
167 [139]X$[179][177]"Y"[175]X$[179][177]"YES"[137]122
168 N[178]N[170]1
169 N$(N)[178]N$
170 A$(N)[178]A$
171 P$(N)[178]P$
172 C$(N)[178]C$
173 [137]122
174 [133]"LOADCUSTOMER NAME";N$
175 E[178]0:[129]I[178]1[164]N
176 [139]N$[179][177]N$(I)[137]180
177 [153]N$(I):[153]A$(I):[153]P$(I):[153]C$(I)
178 [133]"IS THIS THE CUSTOMER";X$
179 [139]X$[178]"Y"[176]X$[178]"YES"[137]183
180 [130]I
181 [153]"RECORD NOT FOUND":[141]199
182 E[178]1
183 [142]
184 [141]174:[139]E[137]122
185 N[178]N[171]1
186 [129]K[178]I[164]N
187 N$(K)[178]N$(K[170]1)
188 A$(K)[178]A$(K[170]1)
189 P$(K)[178]P$(K[170]1)
190 C$(K)[178]C$(K[170]1)
191 [130]K
192 N$(K)[178]"":A$(K)[178]"":P$(K)[178]"":C$(K)[178]""
193 [153]"RECORD DELETED":[141]199:[137]122
194 I[178]0
195 [129]I[178]1[164]N
196 [153]"LOAD"N$(I):[153]"";A$(I):[153]"";P$(I):[153]"";C$(I):[153]"";WE$(I)
197 [153]"SYSNEXT CUSTOMER":[141]199:[130]I
198 [137]122
199 [153]"HIT ANY KEY"
200 [161]X$:[139]X$[178]""[167]200
201 [142]
202 [143] PRINT
203 [153]"LOAD  PRINTING ROUTINE"
204 [159]4,4:[157]4
205 [152]4
206 [152]4
207 [129]I[178]1[164]N
208 [152]4,[199](15)
209 [152]4,"NAME     "[199](14);N$(I),[199](15)
210 [152]4,"ADDRESS  "[199](14);A$(I),[199](15)
211 [152]4,"PHONE #  "[199](14);P$(I),[199](15)
212 [152]4,"COMMENTS "[199](14);C$(I),[199](15)
213 [152]4,"COLLECT  "[199](14);WE$(I),[199](15)
214 [130]I
215 [160]4:[137]122
216 [143] QUIT
217 [153]"LOADSYSTHIS WILL DESTROYSYS ALL FILES IN MEMORY"
218 [133]"CONTINUE (Y/N)";X$
219 [139][200](X$,1)[179][177]"Y"[167]122
220 [128]
221 [143] SORT
222 [153]"LOADSORT ROUTINE"
223 S[178]0:[129]K[178]1[164]N[171]1
224 [139]N$(K)[177]N$(K[170]1)[167][137]226
225 [130]K:[137]230
226 N$[178]N$(K):N$(K)[178]N$(K[170]1):N$(K[170]1)[178]N$:A$[178]A$(K):A$(K)[178]A$(K[170]1):A$(K[170]1)[178]A$
227 P$[178]P$(K):P$(K)[178]P$(K[170]1):P$(K[170]1)[178]P$:C$[178]C$(K):C$(K)[178]C$(K[170]1):C$(K[170]1)[178]C$
228 WE$[178]WE$(K):WE$(K)[178]WE$(K[170]1):WE$(K[170]1)[178]WE$:S[178]1
229 [130]K
230 [139]S[178]1[167]223
231 [153]"SORT COMPLETE"
232 [141]199:[137]122
233 [143] COLLECTION ROUTINE
234 [153]"LOAD"[166]55)"OPEN COLLECT "
235 [153]"ARE ALL YOUR CUSTOMERS IN MEMORY?"
236 [161]X$:[139]X$[178]""[167]236
237 [139]X$[179][177]"Y"[167][138]
238 [133] "WEEK OF(DATE)";WE$
239 [129]I[178]1[164]N:WE$(I)[178]WE$
240 [153]"";N$(I);" PAID (Y/N)?
241 GETX$:IFX$<>"Y"ANDX$<>"N"THEN241
242 IFX$="Y"THENWE$(I)=WE$(I)+" PAID":PRINT"[145][158]PAID"
243 IFX$="N"THENWE$(I)=WE$(I)+" NOTPAID":PRINT"[145][156]NOT PAID"
244 NEXTI:GOSUB199:GOTO122
245 STOP
246 REM READ ERROR CHANNEL
247 OPEN15,8,15
248 INPUT#15,EN,EM$,ET,ES
249 PRINT"ERROR # "EN,EM$;ET;ES""
250 PRINT#15,"I"
251 CLOSE15:CLOSE1:GOSUB199:GOTO122
252 REM HELP
253 POKE53281,15:POKE53280,12:GOSUB254:GOTO258
254 PRINT"[147]";"[152]                                        ";
255 PRINT"            [144]-*-*-HELP-*-*-[152]              ";
256 PRINT"                                        "
257 RETURN
258 PRINTCHR$(14);"[212]O SKIP LOADING COMMAND USE \[152] FOR  THE FILENAME. ";
259 PRINT"[201]F YOU WANT TO LOAD A FILETHEN USE THE FILENAME THAT YOU SAVED THE";
260 PRINT"FILE WITH. [193] GOOD IDEA IS USE THE DATE  THAT YOU MADE THE ENTRY OF.";
261 PRINT" [201]F LOADING  WITH TAPE AND YOU KNOW THE POSITION OF  THE FILE ON TAPE,";
262 PRINT"THEN JUST HIT [210][197][212][213][210][206][152]   AND THE PROGRAM WILL LOAD THE FIRST FILEIT ";
263 PRINT"FINDS."
264 PRINT"[215]HEN SAVING YOU MUST GIVE THE FILE A NAME UP TO 16 CHARATERS LONG."
265 GOSUB286
266 PRINT"[147]":GOSUB254
267 PRINT"[211]ELECT FROM THE MENU WHAT OPTION ISREQUIRED:"
268 PRINT"[193][196][196] [195][213][211][212][207][205][197][210][211] IS TO ADD ROUTE CUSTOMERS AND WILL BE SAVED ";
269 PRINT"IN THE ORDERTHAT THEY WERE ENTERED UNLESS THEY WERE SORTED FIRST."
270 PRINT"[196][197][204][197][212][197] [195][213][211][212][207][205][197][210][211] IS TO DELETE A CUSTOMER FORM YOUR FILES.";
271 PRINT" [202]UST ENTER  THE CUSTOMERS NAME AND THE COMPUTER WILLASK YOU IF THIS ";
272 PRINT"IS THE CUSTOMER. [201]F SO  THEN [200][201][212] [217][152] AND THE FILE WILL BE DELETED."
273 PRINT"[210][197][214][201][197][215][160][195][213][211][212][207][205][197][210][211] WILL DISPLAY THE CUSTOMERS WITH THERE ";
274 PRINT"ADDRESS,PHONE #,COMMENTS & COLLECTION STATUS.":GOSUB286
275 GOSUB254
276 PRINT"[208][210][201][206][212][160][195][213][211][212][207][205][197][210][211] WILL PRINT THECUSTOMERS OUT IN THE ORDER THAT";
277 PRINT" THEY ARESTORED IN MEMORY."
278 PRINT"[211][207][210][212] [195][213][211][212][207][205][197][210][211] WILL SORT THE  LIST IN MEMORY IN ALPHABETICAL";
279 PRINT" ORDER.   [207]NCE SORTED THIS IS HOW THE LIST WILL BESAVED."
280 PRINT"[195][207][204][204][197][195][212] IS TO RECORD WHAT     CUSTOMERS HAVE PAID.";
281 PRINT" [197]NTER THE DATE OF  THE WEEK TO BE COLLECTED FOR."
282 PRINT"[212]HE CUSTOMERS WILL THEN BE DISPLAYED ANDYOU WILL BE ASKED IF THEY PAID."
283 PRINT"[209][213][201][212][152] CAUTION HERE AS THIS WILLEND THE PROGRAM";
284 PRINT" AND ERASE CUSTOMER      MEMORY.[145]":GOSUB286:PRINT"[147]"
285 POKE53280,0:POKE53281,0:GOTO122
286 PRINT"[144][200][201][212][160][193][206][217][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197][152]"
287 GETX$:IFX$=""THEN287
288 RETURN